home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
retrieve.arc
/
RETRIEVE.PRG
< prev
Wrap
Text File
|
1984-12-05
|
3KB
|
101 lines
NOTE -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD
CLEAR
ERASE
SET TALK OFF
ERASE
STORE DATE() TO M:DATE
STORE T TO NODATE
@ 1,0 SAY "-----------------------------------------------------------------------"
@ 2,27 SAY "**** R+E+T+R+I+E+V+E ****"
@ 4,22 SAY "CARDIAC ELECTROPHYSIOLOGY LABORATORY"
@ 5,29 SAY "DIVISION OF CARDIOLOGY"
@ 6,21 SAY "CHILDREN'S HOSPITAL RESEARCH FOUNDATION"
@ 7,0 SAY "-----------------------------------------------------------------------"
DO WHILE NODATE
@ 12,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99'
READ
IF VAL($(M:DATE,1,2))<1;
.OR. VAL($(M:DATE,1,2))>12;
.OR. VAL($(M:DATE,4,2))<1;
.OR. VAL($(M:DATE,4,2))>31;
.OR. VAL($(M:DATE,7,2))<83
STORE 'mm/dd/yy' TO M:DATE
@ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
STORE T TO NODATE
ELSE
STORE F TO NODATE
ENDIF
ENDDO
SET DATE TO &M:DATE
@ 5,23 SAY ' '
@ 7,20 SAY ' '
STORE 'REFS' TO FILE0
STORE 'REFS index REF:NO' TO FILE1
DO WHILE T
ERASE
?
?
? ' *** R+E+T+R+I+E+V+E MENU ***'
?
?
? ' <0> EXIT'
? ' <1> ENTER NEW ARTICLES'
? ' <2> ENTER NEW ARTICLES WITH'
? ' (AUTOMATIC REFERENCE NUMBERING)'
? ' <3> LOCATE ARTICLES'
? ' <4> QUICKLY LOCATE ARTICLES'
? ' (BY FIRST AUTHOR, FIRST KEY WORD,'
? ' OR FIRST 20 LTRS OF SOURCE)'
? ' <5> LOCATE ARTICLES & MAKE TEXT FILE'
? ' <6> RE-INDEX FILES'
? ' <7> MAKE LABELS FOR ARTICLES'
? ' <8> EDIT DATA BASE RECORDS'
@ 23,10 SAY 'ENTER DESIRED ACTION'
@ 22,0 SAY ' '
WAIT TO ACTION
DO CASE
CASE ACTION='0'
ERASE
USE &FILE0
GO BOTTOM
STORE "Y" TO ANS
STORE STR(#,6) TO REC:NO
@ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
@ 16,1 SAY ' '
SET TALK ON
@ 12,10 SAY '*** HIT ANY KEY TO CONTINUE ***'
@ 11,0 SAY ' '
WAIT
ERASE
@ 7,22 SAY "WANT TO RETURN TO MAIN MENU? (Y/N) " GET ANS PICTURE "A"
READ
IF !(ANS)="Y"
CLEAR
DO MENU
ELSE
CLEAR
ERASE
QUIT
ENDIF
CASE ACTION='1'
DO NEW
CASE ACTION='2'
DO AUTONUMB
CASE ACTION='3'
DO FIND
CASE ACTION='4'
DO FASTFIND
CASE ACTION='5'
DO TEXT
CASE ACTION='6'
DO INDEX
CASE ACTION='7'
DO LABEL
CASE ACTION='8'
DO EDIT
OTHERWISE
? '**** Invalid response, re-enter ****'
ENDCASE
ENDDO